home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / e / unfinishedesrc / textpaint.e < prev    next >
Text File  |  1999-01-25  |  629b  |  35 lines
  1. ->By Ian Chapman
  2. ->Draws in an intuition window until you move out of the left edge
  3.  
  4. MODULE  'intuition/intuition'
  5.  
  6. DEF win:PTR TO window
  7.  
  8.  
  9. PROC main()
  10.  
  11.  
  12. IF (win:=OpenW(10,10,600,200,
  13.               IDCMP_MOUSEBUTTONS OR
  14.               IDCMP_MOUSEMOVE OR
  15.               IDCMP_CLOSEWINDOW,
  16.               WFLG_DRAGBAR OR
  17.               WFLG_CLOSEGADGET OR
  18.               WFLG_DEPTHGADGET OR
  19.               WFLG_GIMMEZEROZERO,
  20.               'TEXT PAINT',
  21.               NIL,1,NIL,NIL))<>NIL
  22. Colour(1)
  23.  
  24. REPEAT
  25. TextF(win.mousex-5,win.mousey-10,'#')
  26. UNTIL win.mousex<0
  27.  
  28. CloseW(win)
  29.  
  30. ELSE
  31.     PrintF('Unable to open Window!\n')
  32. ENDIF
  33.  
  34. ENDPROC
  35.